1 PRINT"[147]":POKE53280,1:POKE53281,0:POKE53272,29
2 DEF FN A(A)=A+64+64*(A<64ANDA>31)+32*(A<96ANDA>63)
10 INPUT"NAME   ";N$:SYS57812N$,8,1:POKE780,0:SYS65493:S$="4000":E$="477F"
11 INPUT"START $";S$:INPUT"ENDE  $";E$:FORG=1TOLEN(S$)
12 H=ASC(MID$(S$,G))-48:S=S*16+H+7*(H>9):NEXT:E=0:FORG=1TOLEN(E$)
13 H=ASC(MID$(E$,G))-48:E=E*16+H+7*(H>9):NEXT
14 PRINT"TEXTANFANG : $"S$" /"S:PRINT"TEXTENDE   : $"E$" /"E
15 PRINT"1.TEXT LESEN":PRINT"2.KONVERTIEREN":PRINT"3.BEENDEN"
16 GETA$:ON-(A$="1")-2*(A$="2")-3*(A$="3")GOTO100,200,300:GOTO16
100 X=S
101 PRINT"[147]":FORG=0TO959:POKE1024+G,PEEK(X+G):NEXT:POKE198,0:GETA$:WAIT198,1
102 IFX<E-960THENX=X+960:GOTO101
103 PRINT"[147]":GOTO14
200 X=E-S:V=X/960:X=S:INPUT"NAME  ";SN$:OPEN2,8,2,"@:"+SN$+",S,W":FORG=0TOV
201 PRINT"SEITE :"G+1"[145][145]":FORQ=0TO959:A=PEEK(X+960*G+Q):IFA>127THENA=A AND 127
202 PRINT#2,CHR$(FNA(A));:NEXTQ,G:CLOSE2:GOTO14
300 SYS64378